14 PRINT"[147]LOAD"CHR$(34)"DISK ENCODER"CHR$(34)",8"
15 PRINT"POKE646,1:RUN"
16 I$=CHR$(13)+CHR$(13)+"RUN"+CHR$(13)
22 FORI=1TOLEN(I$):POKE630+I,ASC(MID$(I$,I)):NEXT:POKE198,I:PRINT"":END